home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / sframework / plugins / Test.vbs-disabled < prev    next >
Encoding:
Text File  |  2004-09-09  |  1.8 KB  |  74 lines
  1. 'FMA Script Framework Core Plugin
  2. 'Test
  3. 'Playground for some experiments
  4.  
  5. 'TODO
  6. '-this one has no functionality. so there's nothing to do :)
  7.  
  8. Class Test
  9.     
  10.     Private m_Self
  11.     Private registeredKeysLL
  12.     Private mainMenu 'This is our currently displayed menu
  13.     
  14.     'Some info about the plugin
  15.     Public Property Get SHOWABLE 'Do I have a menu?
  16.         SHOWABLE    = True
  17.     End Property
  18.     Public Property Get TITLE 'What's my name?
  19.         TITLE       = "Test Plugin"
  20.     End Property
  21.     Public Property Get DESCRIPTION 'What's my purpose?
  22.         DESCRIPTION = "Experimental Plugin"
  23.     End Property
  24.     Public Property Get AUTHOR 'Who created me?
  25.         AUTHOR      = "streawkceur"
  26.     End Property
  27.     Public Property Get URL 'Were can I be found? Where can you get more information?
  28.         URL = "http://fma.xinium.com/"
  29.     End Property
  30.     
  31.     'Who am I?
  32.     Public Property Let Self (s)
  33.         m_Self = s
  34.         Dim llist, bi
  35.         Set llist = New LinkedList
  36.         Set mainMenu = New ManagedMenu
  37.         mainMenu.Title = TITLE
  38.         bi = llist.BackInserter
  39.         bi.Item = Array("reg",   m_Self & ".reg")
  40.         bi.Item = Array("dereg", m_Self & ".dereg")
  41.         mainMenu.SetList llist
  42.     End Property
  43.     Public Property Get Self
  44.         Self = m_Self
  45.     End Property
  46.     
  47.     Sub Show()
  48.         mainMenu.ShowMenu
  49.     End Sub
  50.     
  51.     Sub reg()
  52.         Dim bi
  53.         Set registeredKeysLL = New LinkedList
  54.         bi = registeredKeysLL.BackInserter
  55.         Set bi.Item = KeyManager.RegisterKey( KEY_ASTERIX, "Debug.DebugMsg ""--- * pressed""",  STATE_PRESS,   Me )
  56.         Set bi.Item = KeyManager.RegisterKey( KEY_ASTERIX, "Debug.DebugMsg ""--- * released""", STATE_RELEASE, Me )
  57.         am.Update
  58.     End Sub
  59.     
  60.     Sub dereg()
  61.         KeyManager.DeregisterAll Me
  62.         'KeyManager.DeregisterAllFromLL registeredKeysLL
  63.         am.Update
  64.     End Sub
  65.     
  66.     Sub testsub( param )
  67.         MsgBox param
  68.         fma.Sleep 15000
  69.         MsgBox "jup"
  70.     End Sub
  71.  
  72. End Class
  73.  
  74.